home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / rxsocket.lha / rxsocket / Examples / pf.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-29  |  739b  |  32 lines
  1. /* shows how to use rxlibnet miami packet filter support */
  2. /* just press ctrl-c to stop it                          */
  3.  
  4. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  5. if AddLibrary("rexxsupport.library","rxsocket.library","rxlibnet.library")~=0 then exit
  6.  
  7. if ~open("STDERR","CONSOLE:","W") then stderr="STDOUT"
  8. if ~RMH_ReadArgs("INTERFACE/A") then do
  9.     call PrintFault()
  10.     exit
  11. end
  12.  
  13. prg=ProgramName("NOEXT")
  14.  
  15. s=2**allocsignal()
  16. pf=MiamiCreatePF(parm.0.value,s)
  17. if pf<0 then do
  18.     call writeln(stderr,prg": cant' add a filter to '"parm.0.value"'")
  19.     exit
  20. end
  21.  
  22. do while 1
  23.     rs = wait(or(s,2**12))
  24.     if and(rs,s)~=0 then do
  25.         p=MiamiPFNext(pf)
  26.         say length(p)
  27.         if p~="" then say c2x(p)
  28.         else say "<empty>"
  29.     end
  30.     else exit
  31. end
  32.